home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / short.bas < prev    next >
BASIC Source File  |  1994-06-23  |  779b  |  24 lines
  1. 100 N=100
  2. 105 INPUT "FREQUENCY (A) IN MHZ"; A
  3. 110 B=468/A
  4. 115 PRINT B "VALUE OF HALF WAVE LENGTH"
  5. 125 INPUT "ENTER LENGTH (C) OF SHORTENED ANTENNA"; C
  6. 130 INPUT "ENTER WIRE SIZE IN INCHES (D)"; D
  7. 135 IF D<4 THEN 145
  8. 140 D=.324826/(1.226075^D)^.5
  9. 145 INPUT "ENTER DISTANCE (E) FROM CENTER TO LOADING COIL"; E
  10. 150 F=(6500*C/B)/N
  11. 155 PI=355/113
  12. 160 G=1000000!/(34*PI*A)
  13. 165 H=(LOG((234/A-E)*24/D)-1)*((1-A*E/234)^2-1)/(234/A-E)
  14. 170 I=(LOG((C/2-E)*24/D)-1)*(((A*C/2-A*E)/234^2-1)/(C/2-E))
  15. 175 J=G*(H-I)
  16. 180 P=50/(PI*A)
  17. 185 K=(J*P)/N
  18. 190 PRINT K "INDUCTANCE OF COIL IN MICROHENRIES"
  19. 195 IF F>50 THEN B=F/50
  20. 200 IF F<50 THEN B=50/F
  21. 205 PRINT F "IMPEDANCE OF ANTENNA FEEDPOINT"
  22. 210 PRINT B "STANDING WAVE RATIO"
  23. 215 PRINT "PROGRAM TRANSLATED FROM KD5DL BY K6WX"
  24.